home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #9
/
Commodore_Disk_User_Vol.4_9_1991_-_Side_A.d64
/
mt intro
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
107 lines
10 rem ***************************
20 rem ** memory transfer intro **
30 rem ** by lee bamber **
40 rem ***************************
100 print"[147][158]":poke53280,0:poke53281,0
110 print" t h e m e m o r y t r a n s f e r
115 [153]
120 [153]" i n s t r u c t i o n p a g e
122 print:print" by lee bamber"
125 print""
130 print"this intro will simply explain all the
135 [153]"possiblities of the memory transfer"
140 [153]"given with this intro. the two main
145 print"uses of this package is the transfer of
150 [153]"recorded data in the memory and the
155 print"transfer of machine code blocks.
160 [153]"most professional programmers move the
165 print"machine code around in memory to suit
170 [153]"their programs. yet for those of you
175 print"who cannot see how this utility can
180 [153]"help you press a key to find out!!"
185 [161]a$:[139]a$[178]""[167][137]185
200 [153]"load"
210 [153]"here is a screen in memory reduced in
220 print"scale :-"
230 print""
231 print"[166]aaaaaaaaaaaaa[166]"
232 print"[166]a[166]a[166][166][166][166][166][166][166][166]aa[166]"
233 print"[166]a[166]aaaaa[166]aa[166][166]a[166]"
234 print"[166]a[166][166][166][166][166]a[166][166][166][166][166]a[166]"
235 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
236 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
237 print"[166]a[166]a[166][166][166][166][166][166]a[166]aa[166]"
238 print"[166]aaaaaaaaaaaaa[166]"
239 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
240 print""
250 print"and here is an empty area in memory:-";:print""
260 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
261 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
262 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
263 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
264 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
265 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
266 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
267 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
268 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";:print""
270 fort=0to3000:nextt
280 print"suddenly your
281 [153]"program overwrites
282 print"your screen data!
283 [153]"what do you do ?"
284 [153]"28tutfdudghgejd"
285 [153]"064fohkbe94foih"
286 [153]"48hjhf8y4"
290 [129]t[178]0[164]3000:[130]:[153]"";
300 [153]"why not transfer
305 print"the data to
310 [153]"another block of
315 print"memory using this!"
320 fort=0to2000:nextt
350 print"";
430 print"";
431 print"[166]aaaaaaaaaaaaa[166]"
432 print"[166]a[166]a[166][166][166][166][166][166][166][166]aa[166]"
433 print"[166]a[166]aaaaa[166]aa[166][166]a[166]"
434 print"[166]a[166][166][166][166][166]a[166][166][166][166][166]a[166]"
435 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
436 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
437 print"[166]a[166]a[166][166][166][166][166][166]a[166]aa[166]"
438 print"[166]aaaaaaaaaaaaa[166]"
439 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":print"[145][145][145]":print"press any key"
440 print
450 geta$:ifa$=""then450
500 print"[147]";
510 print"or you could just simply scan through
520 [153]"the memory experimenting with blocks
530 print"of memory. you will find it to be a
540 [153]"great allie when programming.
550 print:print"you may find it intresting to know that
560 [153]"in the prog'the ultimate font editor'";
570 [153]"it has a built in screen designer, the
580 print"data for this screen is stored at
590 [153]"locations 3072-4072. the memory which
600 print"holds the transfer utility is at
610 [153]"2043-4800 so if you would like to
620 print"transfer this screen in memory,load
630 [153]"the saved screen file and type:-"
640 [153]:[153]"a=0:fort=3072 to 4072:l=peek(t):poke 20000+a,l:a=a+1:nextt"
645 [161]a$:[139]a$[178]""[167]645
650 [153]:[153]"you will have noticed the large
660 print"number there, that is where the screen
670 [153]"has been transfered to, well away from
680 print"the transfer program.
690 [153]:[153]"* please note!! when loading the screen
700 print"data from the font editor no basic
710 [153]"program must reside in memory between
720 print"the two stated locations.
730 [153]:[153]"i hope you will enjoy using the utility
740 print"as much as i have."
750 print:print" press any key to continue"
760 geta$:ifa$=""then760
800 print"[147]":poke53280,3
810 print"to load the memory transfer load in the"
820 print"filename 'memory transfer'."
830 print
840 end